home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad403.sfx / prcmnd (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  211b  |  11 lines
  1. 1 OPEN15,D0,15,"I0"
  2. 2 CLOSE15
  3. 3 A=USR(33),1:A=USR(33),2:A=USR(33),3
  4. 4 B$="S[211]D[196]HCP"
  5. 5 FORT=1TOLEN(B$):IFA$=MID$(B$,T,1)THENA$="PR"+A$:LOADA$,D0
  6. 6 NEXT
  7. 7 FORT=0TO3:A=USR(33),T:NEXT:SYS36912
  8. 8 GETA$:IFA$=""THEN8
  9. 9 POKE780,ASC(A$):SYS32813
  10. 10 GOTO8
  11.